home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 20 / 9 / DISK2092.ZIP / RBBS-LIT.ZIP / LIT / ML2OK.LIT < prev    next >
Text File  |  1990-01-13  |  541b  |  16 lines
  1. ********************[ Lit for Multilink Support ]***********************
  2. *                               17.3                                   *
  3. ************************************************************************
  4. 8   SUB MLInit (MLParm) STATIC
  5.     DEF SEG = 0
  6.     IF ZComputerType = 1 _
  7.        GOTO 10
  8.     IF NOT ZMLCom THEN _
  9.        IF ZNetworkType <> 1 THEN _
  10.           GOTO 10
  11.     ZMultiLinkPresent = PEEK(&H1FE) + 256 * PEEK(&H1FF)
  12.     IF ZMultiLinkPresent = 0 THEN _
  13.        GOTO 10
  14.     ON MLParm GOSUB 30,20,60,10
  15.  
  16.